Inference at * 1 
Iof proof for Lemma bimplies weakening:



1. u : 
2. v : 
3. u = v
  (u  v) 

latex

 by ((((BoolEval) 
CollapseTHENM (AbReduce 0))) 
CollapseTHEN ((Auto_aux (first_nat 1:n
C) ((first_nat 1:n),(first_nat 4:n)) (first_tok :t) inil_term))) 

latex

C1: 

C1: 1. tt = ff
C1:   False
C.

Definitions

True, t  T, tt, ff, if b then t else f fi , b, p q, p  q, b, Unit, ,